home *** CD-ROM | disk | FTP | other *** search
/ Sports Illustrated for Kids - Awesome Athletes! / Sports Illustrated for Kids - Awesome Athletes!.iso / sd.dir / 00004_Click & Rollover.ls < prev    next >
Encoding:
Text File  |  1996-04-18  |  2.1 KB  |  83 lines
  1. on hPressButton
  2.   global gLastSprite
  3.   set vSprite to the clickOn
  4.   set vCastNo to the castNum of sprite vSprite
  5.   set vCastNam to the name of cast vCastNo
  6.   puppetSprite(vSprite, 1)
  7.   if (vCastNam = 0) or (vCastNam = EMPTY) then
  8.     set the castNum of sprite vSprite to vCastNo + 1
  9.   else
  10.     if vCastNam contains "ROLLOVER" then
  11.       set the castNum of sprite vSprite to vCastNo + 1
  12.     else
  13.       set the castNum of sprite vSprite to the number of cast (vCastNam & "-down")
  14.     end if
  15.   end if
  16.   updateStage()
  17.   repeat while the stillDown
  18.     nothing()
  19.   end repeat
  20.   if (vCastNam = 0) or (vCastNam = EMPTY) then
  21.     set the castNum of sprite vSprite to vCastNo
  22.   else
  23.     set the castNum of sprite vSprite to the number of cast vCastNam
  24.   end if
  25.   puppetSprite(vSprite, 0)
  26.   updateStage()
  27.   if the mouseCast = the castNum of sprite vSprite then
  28.     return 1
  29.   else
  30.     return 0
  31.   end if
  32. end
  33.  
  34. on hRolloverScript vFrameLabel
  35.   global gLastSprite
  36.   set vNowSprite to 0
  37.   if vFrameLabel = "Install" then
  38.     if rollOver(41) then
  39.       set vNowSprite to 41
  40.     else
  41.       if rollOver(42) then
  42.         set vNowSprite to 42
  43.       end if
  44.     end if
  45.   else
  46.     if vFrameLabel = "Finished" then
  47.       if rollOver(41) then
  48.         set vNowSprite to 41
  49.       end if
  50.     end if
  51.   end if
  52.   if not (vNowSprite = 0) then
  53.     set vCastNo to the castNum of sprite vNowSprite
  54.     set vCastName to the name of cast vCastNo
  55.     if (vCastName contains "NOOP") or (vCastName contains "DOWN") then
  56.       set vNowSprite to 0
  57.     end if
  58.   end if
  59.   if not (vNowSprite = 0) then
  60.     hRollOverOn(vNowSprite)
  61.     set gLastSprite to vNowSprite
  62.   else
  63.     puppetSprite(gLastSprite, 0)
  64.     set gLastSprite to 0
  65.   end if
  66. end
  67.  
  68. on hRollOverOn vNowSprite
  69.   global gLastSprite
  70.   if not (gLastSprite = vNowSprite) then
  71.     set vCastNo to the castNum of sprite vNowSprite
  72.     set vCastNam to the name of cast vCastNo
  73.     puppetSprite(vNowSprite, 1)
  74.     set the castNum of sprite vNowSprite to the number of cast (vCastNam & "-ROLLOVER")
  75.     if not (gLastSprite = 0) then
  76.       puppetSprite(gLastSprite, 0)
  77.       updateStage()
  78.     end if
  79.   else
  80.     nothing()
  81.   end if
  82. end
  83.